10 DATA 3E,00: ' LD A, 0 - Constante: MODO
20 DATA CD,0E,BC: ' CALL &BC0E - SET MODE
30 DATA 3E,02: ' LD A, 2
40 DATA 32,34,75: ' LD (30004), A - Asignacion: COLOR=2
50 DATA 3E,01: ' LD A, 1
60 DATA 32,35,75: ' LD (30005), A - Asignacion: OPCION=1
70 DATA 3A,34,75: ' LD A, (30004) - Variable: COLOR
80 DATA CD,90,BB: ' CALL &BB90 - SET PEN
90 DATA 3E,01: ' LD A, 1
100 DATA CD,96,BB: ' CALL &BB96 - SET PAPER
110 DATA 3E,0A: ' LD A, 10
120 DATA CD,6F,BB: ' CALL &BB6F - CURSOR COLUMN
130 DATA 3E,0A: ' LD A, 10 - Constante: LINEA1
140 DATA CD,72,BB: ' CALL &BB72 - CURSOR ROW
150 DATA 3E,61: ' LD A, "a"
160 DATA CD,5A,BB: ' CALL &BB5A - WRITECHAR
170' IF OPCION=1
180 DATA 3E,01: ' LD A, 1
190 DATA 47:' LD B, A (1)
200 DATA 3A,35,75: ' LD A, (30005) - Variable: OPCION
210 DATA B8:' CP B
220 DATA C2:' JP NZ
230 DATA nnnELSE_1LO,nnnELSE_1HI: ' JP ELSE_1
240 DATA 3A,34,75: ' LD A, (30004) - Variable: COLOR
250 DATA 3C :' INC A
260 DATA 32,34,75: ' LD (30004), A - Incremento: COLOR+1
270 DATA 3A,34,75: ' LD A, (30004) - Variable: COLOR
280 DATA CD,90,BB: ' CALL &BB90 - SET PEN
290 DATA 3E,62: ' LD A, "b"
300 DATA CD,5A,BB: ' CALL &BB5A - WRITECHAR
310 DATA C3,nnnFIN_IF_1LO,nnnFIN_IF_1HI: ' JP FIN_IF_1
320 ' Etiqueta de salto: ELSE_1, posicion: 30172
330 DATA 3E,01: ' LD A, 1
340 DATA 32,34,75: ' LD (30004), A - Asignacion: COLOR=1
350 DATA 3A,34,75: ' LD A, (30004) - Variable: COLOR
360 DATA CD,90,BB: ' CALL &BB90 - SET PEN
370 DATA 3E,64: ' LD A, "d"
380 DATA CD,5A,BB: ' CALL &BB5A - WRITECHAR
390 ' Etiqueta de salto: FIN_IF_1, posicion: 30188
400 DATA 3E,02: ' LD A, 2
410 DATA CD,96,BB: ' CALL &BB96 - SET PAPER
420 DATA 3E,01: ' LD A, 1
430 DATA CD,6F,BB: ' CALL &BB6F - CURSOR COLUMN
440 DATA 3E,0A: ' LD A, 10 - Constante: LINEA1
450 DATA CD,72,BB: ' CALL &BB72 - CURSOR ROW
460 DATA 3E,64: ' LD A, "d"
470 DATA CD,5A,BB: ' CALL &BB5A - WRITECHAR
480 DATA C9: ' RET
490 longitud = 108
500 MEMORY 29999
510 'Codigo del programa
520 FOR n=30100 TO 30100+longitud
530   READ a$:POKE n,VAL("&"+a$)
540 NEXT
550 'Espacio para variables
560 FOR n=30000 TO 30099
570   POKE n,0
580 NEXT
590 POKE 30000, &CD: 'inicio: CALL 30100
600 POKE 30001,148
610 POKE 30002,117
620 CALL 30000
